This command will activate the effect of fogging, if the current display card supports it.

FOG ON

This command does not return a value.

All fog color and distance settings are safely restored when using this command.

sync on

autocam off

color backdrop rgb(0,0,0)

load image "ground.jpg",1

make matrix 1,1000,1000,100,100

prepare matrix texture 1,1,1,1

position matrix 1,-500,0,-500

position camera 0,100,0

make object sphere 1,20

position object 1,0,0,500

set ambient light 20

color ambient light rgb(64,64,128)

fog on

fog distance 1000

fog color rgb(255,128,64)

set point light 0,0,0,500

position light 0,0,100,0

color light 0,512,512,255

set light range 0,1000

while inkey$()<>"x"

set cursor 0,0

print "LIGHT COMMANDS (X to Exit)"

sync

endwhile

delete object 1

fog off

end

LIGHT Commands Menu
Index